home *** CD-ROM | disk | FTP | other *** search
/ Arktis Edition / ARKTIS Edition Vol. 1 (1994)(ARKTIS)(DE)[!].iso / softwareproben / databaseprof-demo / dbpro2 / fakturierung / kundenkartei.rexx < prev    next >
OS/2 REXX Batch file  |  1994-08-04  |  3KB  |  51 lines
  1. /* Kundennummer */
  2.  
  3. Options results
  4.  
  5. ADDRESS DataBase                 /* auf Adressport DataBase umschalten    */
  6.  
  7. GetData $F1                      /* Inhalt aus Feld 1 lesen               */
  8. kdn = RESULT                     /* und in der Variablen kdn speichern    */
  9. GetData $F2                      /* Inhalt aus Feld 2 lesen               */
  10. anr = RESULT                     /* und in der Variablen anr speichern    */
  11. GetData $F3                      /* Inhalt aus Feld 3 lesen               */
  12. na1 = RESULT                     /* und in der Variablen na1 speichern    */
  13. GetData $F4                      /* Inhalt aus Feld 4 lesen               */
  14. na2 = RESULT                     /* und in der Variablen na2 speichern    */
  15. GetData $F5                      /* Inhalt aus Feld 5 lesen               */
  16. pof = RESULT                     /* und in der Variablen pof speichern    */
  17. GetData $F6                      /* Inhalt aus Feld 6 lesen               */
  18. str = RESULT                     /* und in der Variablen str speichern    */
  19. GetData $F7                      /* Inhalt aus Feld 7 lesen               */
  20. plz = RESULT                     /* und in der Variablen plz speichern    */
  21. GetData $F8                      /* Inhalt aus Feld 8 lesen               */
  22. ort = RESULT                     /* und in der Variablen ort speichern    */
  23.  
  24.  
  25.  
  26.  
  27. FindBase 'rechnung.db'           /* gibt die Base-Nr. zurück, in der die  */
  28. newbase = RC                     /* Datei geladen ist.                    */
  29.  
  30. IF newbase > 0 THEN              /* Ist die Datei vorhanden, dann         */
  31.   Base newbase                   /* auf die neue Base umschalten          */
  32. ELSE                             /* wenn nicht,                           */
  33.   DO                             /* dann                                  */
  34.   Base 5                         /* auf Base 5 umschalten                 */
  35.   OPEN "Fakturierung/rechnung.db"/* Datei rechnung.db laden               */
  36. END
  37.  
  38. RightTotal                       /* Ans Ende der Datei springen           */
  39. Add                              /* neuen Datensatz erzeugen              */
  40. PutData $F1 kdn                  /* den Inhalt kdn in Feld Nr. 1 kopieren */
  41. PutData $F2 anr                  /* den Inhalt anr in Feld Nr. 2 kopieren */
  42. PutData $F3 na1                  /* den Inhalt na1 in Feld Nr. 3 kopieren */
  43. PutData $F4 na2                  /* den Inhalt na2 in Feld Nr. 4 kopieren */
  44. PutData $F5 pof                  /* den Inhalt pof in Feld Nr. 5 kopieren */
  45. PutData $F6 str                  /* den Inhalt str in Feld Nr. 6 kopieren */
  46. PutData $F7 plz                  /* den Inhalt plz in Feld Nr. 7 kopieren */
  47. PutData $F8 ort                  /* den Inhalt ort in Feld Nr. 8 kopieren */
  48.  
  49. ADDRESS                          /* auf den vorherigen Adressport schalten*/
  50.  
  51.